home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 05-12.C < prev    next >
Text File  |  1992-01-31  |  643b  |  38 lines
  1. #include <fastgraf.h>
  2.  
  3. void main(void);
  4.  
  5. void main()
  6. {
  7.    int decreasing;
  8.    int i;
  9.    int old_mode;
  10.    char RGBvalues[21];
  11.  
  12.    old_mode = fg_getmode();
  13.    fg_setmode(19);
  14.  
  15.    for (i = 9; i <= 15; i++) {
  16.       fg_setcolor(i);
  17.       fg_text("*",1);
  18.       }
  19.  
  20.    fg_getdacs(9,7,RGBvalues);
  21.    fg_waitfor(18);
  22.  
  23.    do {
  24.       decreasing = 0;
  25.       for (i = 0; i < 21; i++)
  26.          if (RGBvalues[i] > 0) {
  27.             RGBvalues[i]--;
  28.             decreasing = 1;
  29.             }
  30.       fg_setdacs(9,7,RGBvalues);
  31.       fg_waitfor(1);
  32.       }
  33.    while (decreasing);
  34.       
  35.    fg_setmode(old_mode);
  36.    fg_reset();
  37. }
  38.